home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_iilist.asp < prev    next >
Encoding:
Text File  |  1999-06-03  |  1.6 KB  |  84 lines

  1. <%@ LANGUAGE = VBScript %>
  2. <% Option Explicit %>
  3. <!-- #include file="directives.inc" -->
  4. <!--#include file="iilist.str"-->
  5. <% 
  6.  
  7. On Error Resume Next
  8.  
  9. Dim extra, buttonstr, brw
  10. extra=Request.QueryString
  11. brw = Session("Browser")
  12. %>
  13. <!--#include file="iisetfnt.inc"-->
  14. <HTML>
  15. <HEAD>
  16.     <TITLE></TITLE>
  17. </HEAD>
  18. <BODY BGCOLOR="<%= Session("BGCOLOR") %>">
  19. <FORM NAME="userform">
  20. <TABLE>
  21. <TR>
  22. <TD>
  23. <%= sFont("","","",True) %>
  24. <%    if (instr(extra,"Backup")) then %>
  25.  
  26. <INPUT
  27.     TYPE="Button"
  28.     VALUE="<%= L_BACKUP_TEXT %>"
  29.     onClick="parent.head.listFunc.addItem();"
  30.     style="width:<%= L_BTNWIDTH_NUM %>"            
  31. ><P>
  32. <INPUT
  33.     TYPE="Button"
  34.     VALUE="<%= L_REMOVEBKUP_TEXT %>"
  35.     onClick="parent.head.listFunc.delItem();"
  36.     style="width:<%= L_BTNWIDTH_NUM %>"            
  37. ><P>
  38.  
  39.  
  40. <%    else  %>
  41.     
  42. <%
  43.     if (instr(extra,"up")) then
  44.         %><INPUT
  45.             TYPE="Button"
  46.             VALUE="<%= L_UP_TEXT %>"
  47.             onClick="parent.head.moveItem(-1);"
  48.             style="width:<%= L_BTNWIDTH_NUM %>"        
  49.             ><P><%
  50.         %><INPUT
  51.             TYPE="Button"
  52.             VALUE="<%= L_DOWN_TEXT %>"
  53.             onClick="parent.head.moveItem(1);"
  54.         style="width:<%= L_BTNWIDTH_NUM %>"                
  55.             ><P><%
  56.     end if
  57.  
  58.     if (instr(extra,"NewType")) then
  59.         buttonstr = L_NEWTYPE_TEXT 
  60.     else
  61.         buttonstr=L_ADD_TEXT
  62.     end if
  63.      %>
  64.     <INPUT
  65.         TYPE="Button"
  66.         VALUE="<%= buttonstr %>"
  67.         onClick="parent.head.listFunc.addItem();"
  68.         style="width:<%= L_BTNWIDTH_NUM %>"        
  69.         ><P>
  70.     <INPUT
  71.         TYPE="Button"
  72.         VALUE="<%= L_REMOVE_TEXT %>"
  73.         onClick="parent.head.listFunc.delItem();"
  74.         style="width:<%= L_BTNWIDTH_NUM %>"            
  75.         ><P>
  76.     
  77. <% end if %>
  78. </TD>
  79. </TR>
  80. </TABLE>
  81. </FORM>
  82. </BODY>
  83. </HTML>
  84.